home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / Collection.p < prev    next >
Text File  |  2004-01-31  |  5KB  |  127 lines
  1. pTempVar <- <primitive 110 23 >
  2. <primitive 112 pTempVar 1  " size " \
  3.   #( #[ 16r5E 16r80 16r00 16rF2 16r50 16r71 16r20 16rE1 16r02 16r06 16r21 \
  4.         16r51 16rC0 16rF1 16r71 16rF3 16rB3 16rF2 16r5E 16r80 16r01 \
  5.         16rF2 16r21 16rF3 16rF5] \
  6.     #( #tracingOff #tracingOn  )) >
  7.  
  8. <primitive 112 pTempVar 2  " shallowCopy " \
  9.   #( #[ 16r05 16r30 16rA0 16r71 16r20 16rE1 16r02 16r05 16r21 16r22 16r0B \
  10.         16r17 16rF3 16rB3 16rF2 16r20 16r21 16r0B 16r10 16rF3 16rF5 \
  11.        ] \
  12.     #(  )) >
  13.  
  14. <primitive 112 pTempVar 3  " select: " \
  15.   #( #[ 16r20 16r20 16rA4 16rA0 16rE2 16r02 16r0B 16r21 16r23 16rB5 16rF7 \
  16.         16r03 16r22 16r23 16rBE 16rF2 16r22 16rF3 16rD7 16rF3 16rF5 \
  17.        ] \
  18.     #(  )) >
  19.  
  20. <primitive 112 pTempVar 4  " remove:ifAbsent: " \
  21.   #( #[ 16r20 16r21 16r0B 16r1F 16rF7 16r06 16r20 16r21 16r0B 16r28 16rF8 \
  22.         16r03 16rF2 16r22 16rA5 16rF3 16rF5] \
  23.     #(  )) >
  24.  
  25. <primitive 112 pTempVar 5  " remove: " \
  26.   #( #[ 16r20 16r21 16rE0 16r04 16r20 16r30 16rBD 16rF4 16rD8 16rF2 16r21 \
  27.         16rF3 16rF5] \
  28.     #( 'attempt to remove object not found in collection'  )) >
  29.  
  30. <primitive 112 pTempVar 6  " reject: " \
  31.   #( #[ 16r20 16rE1 16r02 16r05 16r21 16r22 16rB5 16rAC 16rF3 16r0B 16r2D \
  32.         16rF3 16rF5] \
  33.     #(  )) >
  34.  
  35. <primitive 112 pTempVar 7  " printString " \
  36.   #( #[ 16r20 16r20 16rA4 16rA9 16r30 16r0B 16r12 16rE2 16r01 16r09 16r21 \
  37.         16r31 16r0B 16r12 16r22 16rA9 16r0B 16r12 16rF3 16rD7 16r32 \
  38.         16r0B 16r12 16rF3 16rF5] \
  39.     #( ' (' ' ' ' )'  )) >
  40.  
  41. <primitive 112 pTempVar 8  " occurrencesOf: " \
  42.   #( #[ 16r20 16r50 16rE2 16r02 16r0D 16r23 16r21 16rC9 16rF7 16r05 16r22 \
  43.         16r51 16rC0 16rF8 16r02 16rF2 16r22 16rF3 16rD7 16rF3 16rF5 \
  44.        ] \
  45.     #(  )) >
  46.  
  47. <primitive 112 pTempVar 9  " isEmpty " \
  48.   #( #[ 16r20 16rA3 16r50 16rC9 16rF3 16rF5] \
  49.     #(  )) >
  50.  
  51. <primitive 112 pTempVar 10  " inject:into: " \
  52.   #( #[ 16r21 16r73 16r20 16rE1 16r04 16r07 16r22 16r23 16r24 16rD3 16rF1 \
  53.         16r73 16rF3 16rB3 16rF2 16r23 16rF3 16rF5] \
  54.     #(  )) >
  55.  
  56. <primitive 112 pTempVar 11  " includes: " \
  57.   #( #[ 16r20 16rE1 16r02 16r08 16r22 16r21 16rC9 16rF7 16r02 16r5B 16rF4 \
  58.         16rF3 16rB3 16rF2 16r5C 16rF3 16rF5] \
  59.     #(  )) >
  60.  
  61. <primitive 112 pTempVar 12  " first " \
  62.   #( #[ 16r20 16r30 16rBD 16rF3 16rF5] \
  63.     #( 'subclass should implement first'  )) >
  64.  
  65. <primitive 112 pTempVar 13  " detect:ifAbsent: " \
  66.   #( #[ 16r20 16rE1 16r03 16r08 16r21 16r23 16rB5 16rF7 16r02 16r23 16rF4 \
  67.         16rF3 16rB3 16rF2 16r22 16rA5 16rF3 16rF5] \
  68.     #(  )) >
  69.  
  70. <primitive 112 pTempVar 14  " detect: " \
  71.   #( #[ 16r20 16r21 16rE0 16r04 16r20 16r30 16rBD 16rF3 16rDF 16rF3 16rF5 \
  72.        ] \
  73.     #( 'no object found matching detect'  )) >
  74.  
  75. <primitive 112 pTempVar 15  " deepCopy " \
  76.   #( #[ 16r05 16r30 16rA0 16r71 16r20 16rE1 16r02 16r07 16r21 16r22 16r0A \
  77.         16r15 16r0B 16r17 16rF3 16rB3 16rF2 16r20 16r21 16r0B 16r10 \
  78.         16rF3 16rF5] \
  79.     #(  )) >
  80.  
  81. <primitive 112 pTempVar 16  " collect: " \
  82.   #( #[ 16r20 16r20 16rA4 16rA0 16rE2 16r02 16r08 16r22 16r21 16r23 16rB5 \
  83.         16rBE 16rF2 16r22 16rF3 16rD7 16rF3 16rF5] \
  84.     #(  )) >
  85.  
  86. <primitive 112 pTempVar 17  " coerce: " \
  87.   #( #[ 16r20 16rA0 16r72 16r21 16rE1 16r03 16r04 16r22 16r23 16rBE 16rF3 \
  88.         16rB3 16rF2 16r22 16rF3 16rF5] \
  89.     #(  )) >
  90.  
  91. <primitive 112 pTempVar 18  " asString " \
  92.   #( #[ 16r20 16rA3 16r71 16r05 16r3A 16r21 16rB0 16rF1 16r51 16r21 16r20 \
  93.         16r83 16r00 16rF2 16rF3 16rF5] \
  94.     #( #replaceFrom:to:with:  )) >
  95.  
  96. <primitive 112 pTempVar 19  " asList " \
  97.   #( #[ 16r05 16r30 16rA0 16r20 16r0B 16r15 16rF3 16rF5] \
  98.     #(  )) >
  99.  
  100. <primitive 112 pTempVar 20  " asSet " \
  101.   #( #[ 16r05 16r39 16rA0 16r20 16r0B 16r14 16rF3 16rF5] \
  102.     #(  )) >
  103.  
  104. <primitive 112 pTempVar 21  " asBag " \
  105.   #( #[ 16r05 16r20 16rA0 16r20 16r0B 16r14 16rF3 16rF5] \
  106.     #(  )) >
  107.  
  108. <primitive 112 pTempVar 22  " asArray " \
  109.   #( #[ 16r20 16rA3 16r71 16r05 16r1E 16r21 16rB0 16rF1 16r51 16r21 16r20 \
  110.         16r83 16r00 16rF2 16rF3 16rF5] \
  111.     #( #replaceFrom:to:with:  )) >
  112.  
  113. <primitive 112 pTempVar 23  " addAll: " \
  114.   #( #[ 16r21 16rE1 16r02 16r04 16r20 16r22 16rBE 16rF3 16rB3 16rF2 16rF5 \
  115.        ] \
  116.     #(  )) >
  117.  
  118. <primitive 98 #Collection \
  119.   <primitive 97 #Collection #Object #AmigaTalk:General/Collection.st \
  120.    #(  ) \
  121.    #( #size #shallowCopy #select: #remove:ifAbsent: #remove: #reject:  \
  122.        #printString #occurrencesOf: #isEmpty #inject:into: #includes: #first  \
  123.        #detect:ifAbsent: #detect: #deepCopy #collect: #coerce: #asString #asList #asSet #asBag  \
  124.        #asArray #addAll:  ) \
  125.   pTempVar 5 7 > #ordinary >
  126.  
  127.